home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _IECreateEmbedded.au3 < prev    next >
Encoding:
Text File  |  2006-07-14  |  1.4 KB  |  45 lines
  1. ; *******************************************************
  2. ; Example 1 - Trap COM errors so that 'Back' and 'Forward' 
  3. ;                outside of history bounds does not abort script 
  4. ;                (expect COM errors to be sent to the console)
  5. ; *******************************************************
  6. ;
  7. #include <GUIConstants.au3>
  8. #include <IE.au3>
  9.  
  10. _IEErrorHandlerRegister ()
  11.  
  12. $oIE = _IECreateEmbedded ()
  13. GUICreate("Embedded Web control Test", 640, 580, _
  14.         (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
  15.         $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
  16. $GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
  17. $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
  18. $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
  19. $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
  20. $GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
  21.  
  22. GUISetState()       ;Show GUI
  23.  
  24. _IENavigate ($oIE, "http://www.autoitscript.com")
  25.  
  26. ; Waiting for user to close the window
  27. While 1
  28.     $msg = GUIGetMsg()
  29.     Select
  30.         Case $msg = $GUI_EVENT_CLOSE
  31.             ExitLoop
  32.         Case $msg = $GUI_Button_Home
  33.             _IENavigate ($oIE, "http://www.autoitscript.com")
  34.         Case $msg = $GUI_Button_Back
  35.             _IEAction ($oIE, "back")
  36.         Case $msg = $GUI_Button_Forward
  37.             _IEAction ($oIE, "forward")
  38.         Case $msg = $GUI_Button_Stop
  39.             _IEAction ($oIE, "stop")
  40.     EndSelect
  41. WEnd
  42.  
  43. GUIDelete()
  44.  
  45. Exit